home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 23 / 023.d81 / pixel page (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  46 lines
  1. 10 ifx=0thenx=1:gosub260:                  load"unpacker",8,1
  2. 20 ifx=1thenx=2:load"pixel.shps",8,1
  3. 30 poke249,224:poke250,204:                 rem screen/color
  4. 40 poke251,0:poke252,64:                    rem shp buffer
  5. 50 poke253,0:poke254,0:                     rem   x-pos,y-pos
  6. 60 print"[145][145]  [208]ress space bar to view pixel page."
  7. 70 print" [208]ress it again to return to loadstar."
  8. 80 wait198,1:poke198,0
  9. 90 :
  10. 100 s=54272:fori=0to24:pokes+i,0:next
  11. 110 pokes+5,240:pokes+6,253:pokes,0:pokes+1,4:pokes+23,241:pokes+24,31
  12. 120 pokes+4,129
  13. 130 :
  14. 140 poke255,0:sys51462:                         rem unpack full screen
  15. 150 :
  16. 160 sys51459:    rem  show screen
  17. 170 poke53265,peek(53265)or32:              poke53270,peek(53270)or16:poke198,0
  18. 180 sh=2:d=rnd(1)*100:fordl=1tod:ifpeek(198)=0thennext
  19. 190 ifpeek(198)=0thenpoke253,3:poke254,1:poke255,sh:sys51462
  20. 195 ifsh=2thensh=1:d=rnd(1)*100:fordl=1to100:ifpeek(198)=0thennext:goto190
  21. 200 ifpeek(198)=0then180
  22. 210 sys51459
  23. 220 :
  24. 230 forv=15to0:pokes+24,v:next
  25. 231 print"[147]":poke53281,0:poke53280,0
  26. 232 print"  [211]hreveport is located in the north-"
  27. 233 print"      west corner of [204]ouisiana."
  28. 234 print"[212]he population is approximately 350,000."
  29. 235 print"   <[208]ress a key to return to [204][207][193][196][211][212][193][210]>":poke198,0:wait198,1
  30. 240 print""spc(9)"[210]eturning to [204][207][193][196][211][212][193][210]...."
  31. 250 poke40961,23:load"hello connect",8:end
  32. 260 rem  main screen
  33. 270 poke53280,0:poke53281,0:print"[147]"chr$(8)
  34. 280 printspc(13)"[158][204][207][193][196][211][212][193][210] #23"
  35. 290 print""spc(14)"[208]ixel[160][208]age"
  36. 300 print:print:print
  37. 310 print
  38. 320 print"[158]       [205]ommy, where do they live?"
  39. 330 print
  40. 340 print"     [215]ell dear, [201] really don't know!":print
  41. 342 print"               ([200]mmm...)"
  42. 350 print"[154] [195]over designed by [211]tephen [199]ross using"
  43. 360 printspc(12)"the [203]oala pad."
  44. 370 print"[156]    [204]oading picture...please wait."
  45. 380 return
  46.